“—""FOOVES FOR SYMBUL TYPES ARE 


PAGE” 9 
*140a 
~JROUTINE TO PROCESS SPECTAL CHARACTERS ~~ _ 

_ABALLED BY ely NCHEK labels aT DISCOVERS A SPECTAL bal etelah-dliakaal 


Sen TRE APIO CA SO REESE INA AS APR SET AINE NRE NODES ENS SEC AMERY Re 8 OE REN ke AEA BE A SERS SA AMEE AO A IS RINE ARENT 


hh SEARCH 1S MADE THROUGH THE SYMBOL TABLE FOR THE “SYMBOL, IF ANY 


“*/THE VALUE OF The SYMBOL, OR OCTAL WORD, IS LEFT IN REGISTER SYMVAL © _ 


/THE SYMBOL TYPE IS LEFT IN REGISTER TYPE | _ 
oe 


/MEMORY REF INSTRUCTIONS Oo 
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sess serene: aes aeRH EAs 
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SPSHUL, CLA “JUNK IN AC WHEN SPSHUL TS CALLED — 


a eR OL FO HANOLE? 
SNA CLA 

ETO INOS “go -PROCESS -OCTAL” WORD 
sy JMS I SMGETI /SEARCH FOR SYMBOL 

SMP ‘PUTIN  £NOYT THERE, PUT IT IN THE SYMBOL TABLE = 


os RSI aa NE PIR ANNE I EURO SRW LS DST CUR NEN HOI LEONE i EERO REET ARENA MRE RSE 


(EE gp EDR OOPS IT W PSEUDOSCODE? 
SNL. 
jus seup VEST PROLESS IF FeFeFFF 
TAD MICRP ss /NOR IS TT A MICRO UNSTRAF 
Se ee 7 
TAC /YES? CONES+1 | 

~ PUSHSP, OCA TYPE = — Y/STORE CODE IN REGISTER TYPE 
ao TAD OMAR OU GET THE SPECTAL CHARACTER 00000000 
TaD Mell /{S IT A TAB? 
ce a ed 
IMP J SPacr /YES! TREAT AS A SPACE 

TaD M4 CES IT A CARRIAGE RETURN? 


SRO ao. RRL RASA SRA AEB SB EB i EAS MORE REGS AOR aL BS AMEN EE REE SENNA LESTE EDS NSUN ASG ENERO 


‘IS IT A SPACE (CODE 240)? 


NAAR NDS NRG ALR NO RETREAT REA A DTN OR ND RAN RRS 


I CARRY AYES, PROCESS CARRIAGE RETURN 
| | inant 


 JMP t SPacr § /YES!t PROCESS SPACE | 
TAD MG CTS IT A DOLLAR SIGN COODE 244) 
MPT DOLL YES) PROCESS 8S | 
FAD MS . /TS TT A STAR (CODE 257) 9 0 

ke _SNA 
TAD M1 /TS IT PLUS(CODE 253)? 
Sq See 
_JMP T apOT YES, PROCESS PLUS 
ae TBs e Fae TCO EOE ek Sites 
: SNA © | 

TaD M1 /I8 IT A MINUS (CODE 255)? 
Saaca eR |" GAAS aa RAE Sula Aa Seda a ee 

JMP JY SUaT /YES, PROCESS MINUS 
stead Se, TAD A as ~7TS-IT & PERTOD (CODE 256)? : ate re ae Bera Es 
- SNA 
HP TPOINTE—7YES; PROCESS PERIOD: 
TAD MAT ESET AN CGODE 27507 


IMP T EGQUaALI — AYES, PROCESS ‘EQUAL SIGN 

——a ee IS IT SEHT*COLON? TT ARTE TE Tr! eR een 
SNA CLA \ 
a MI pp <a Ct A R R t Cea teatine Nes pope t iat “4 ¥ F $ : > R E A . a A 5 t Rr net er Ne MEI Rn MIRE NA a tA A tne nao RICAN aga wae nae tna eA ne yt anne patter tH nme En Ser Sor ge gy ag ee ee 
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ERRORN, 


A he an LO a AERA AAA ih $b nD AE AAO aie LARS RM een ld Rin 


TAD CHAR 


PUSH 
TAD C4 


_ ERROR2 


“aca 


_ PSEUDAs 


JMP JT .#! 


CLA 


DCA ote 


ae Cee 


Tie PUSHSP — 
Tan MID 


DCA AUTOR 


Tap SYM 


TAD C4TH 


TaD SYMe 


Wea uci casas Ne Hace 


— ASAVE IT 


— AOLEAR INFO FOR ALL PSEUDO#OPS 
eee ro 
TAD SYMVAK 


ANOe / ILLEGAL CHARACTER 
ae ee Lh 


f R E T U RI N T if N CHEK 


RO tn NERY A ASCARI Sg IMPASSE OS NCES AS 


“GET ADDRESS OF ROUTINE 


AGALL ROUTING 


/MANOLE TERMINATOR 
/ADDRESS=1_ GOES INTO. AUTOR 
/PUT IN UNDEFINED BIT | 


/SECOND WORD OF SYMBOL 


is ACA FT se AT ha yA AB RARRESEAELD CAE REINA NAA OP TARE DE PING HUA ASAE BI NS os IE ARR APY A I AN AU PTE ED IRE Da ESI SN IES SEE AERP DR RR EMAL TN AEE GRA AED ALAN SE ORAM Ed SR SERENA ARR EEE MIE DME EA 


TaD SYMS 


TAD AaCT 


Cia ONY eee 


—/VALUE OF SYMBOL 


TAD 4 /MOVE Sate POINTER BACK a REGISTERS © 
DcA SPNT 


OCTALW, 


_ORCDP, © 


vA? OCwo 


DCA OcwO 


IMP PUSHSP ef ~~ 


oe 


| AGET OCTAL WORD 


7PR oceE SS a AS ty SER SYMB 6 LC Saas Ee eS SRS Pack ocak heath aceon Sara 3a Al in hats Rab masta A Se Boolian Rea ea ln aii aa nine ds av sa i a as eS aig . 


—_ ‘SMGETI, SYMGET - i : 
’ 

ne Ss se aaa! Bites 

| a Co 

a a py SMe el Br ac et hc a eS tele Be a) aaa ale ene oe 

_ r _ _ oe 

= : : . ee Saha See ote, oes ee ene 2 
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ASYMBOL COMPARISON ROUTINE oe 
"A COMPARES SYMBOLS: ADDRESSES IN INDEX REGISTERS © 

ee AND SORT2, 


vom 


eee ASU REE GG ASR ESSER BOR CREA ANN EE SMD RENEE SA SIO LEADER OMAR STG EY ETD ERA ID EARY EDIE OSHS PDS IETS A ABA MA DEN RNA PE CASEMAIL EON LAER EON NLT 


a YEXITS. ‘TO CALLING ADDRESS #1 IF Ash 
~——“FEXTTS TO CALLING ADDRESS+2 IF A>B 
/EXITS TO CALLING ADDRESS#3 IF A«<B 


“FP WHERE A ITS SYMBOL IN SORT1, 68 ITS SYMBOL IN SORT2 == Se ge ee eee a 
LP WENGTHS 39 REGISTERS 
—  SYMOCOM, @ Sg 2 Be ne Pe 
| Ch. lL. /CLEAR LINK” 

Tan IT SORTi ee 


“AND MASK "Se eCETE DEFINED BIT 
DCA POPTEM 


PDR SRR SBA 3 LESTE NONE EPPERSON HUAN LORE SSO TENE ER Rh LA NE I SED A BABIN! AA A RE TERR TR BPEL I MEIER NOR AT USER TOUR OS AE i BK SANAD AS GS PAT EONS PR LTA BA SN LN A RA BMA A i SDA TE MRO Ue EHR RRA RARER VSS SON OA ATSIC SEIS SSOP RRR SCE A ST SE BIE ETRE RS TST ORGIES ENE ARO RAGE ESPEN BS ITD 


IHF. ‘TSIGN#2” 


eset ctr Ae RPE SG RGAE ARISE RH RED NS OVER SEAGER ARES z SS RST SRE i SEA NaN Nl EGS RESCIND RR SEAT GA ANE ET BSR IEE SL RT ES A ENE CG AE AE BERS NEI SN AS BBS CE NA OSS ACSRO NRE CNTR RAIA INGE HS AEESY LE SI REID ES ATRESIA EER SRC RE BAR SER ESE EBD 5 RN BC SS AEERBE SERIE RS ASD SITE A TNE NE  STIENSU SS ARTETA LAE IBO REMS TRS ASIII REIT 


an. I SORT2 | /SECOND WORD OF SYMBOL 14 


CMA Tac 
TAD TT SORTE UZ RSECOND WORD OF SYMBOL 2 

SZA CLA /SECOND PAIR EQUAL? 
MP TSTGN@ EL | /NOR TEST SIGN | 


CL. tL. 
Tap I SORT2  (/THIRD WORD OF SYMBOL 1 2 2 


CMA Tac | 
TAD tT SORT! /=THIRD WORD IF SYMBOL 2 
BNR ECA ne 
JMP CS0UT FALL THREE ARE EQUAL 
ae STG 
1§Z SORT2 
387 SORTS 
TSTGN, SNL | /TEST SIGN 
ee CSOT TSP -SyMCNM EXT IF SYMBOLT€SYMBOL2 
C40UT, SZ SYMCOM /EXIT IF SYMBOLI>SYMBOL2 | 
eC SOUT, IMP YT SyMcOmM ~~ ZEXTT IF SYMBOLTSSYMBOLY ~ ee ee 


SS ERT a RA SRI OM i PAAR CUR NARS CNRS A SPODELI TR CEC LESSER eS NETRA IAA TET SA 


silat term ARC BE AUS ASTOR SHARE REMAN ROI SCL SA AAR EBD Ss ASN SPR AR SSE i PASAT AN ABA EERE 


SCARE cnc SR I RR I A Re Se TOE ME A Ns PAN ECA ag AMA EA OSB Ra REINO RTO Ge TSE A Sh HR TRS A in DSR AROS RAS RR EAD, CERCLA TWAIN ORECAST De SE RPDRSR A SESSLER! OE A EW AR. LE RS TSR ANRC MEE IEA SEL STG ACRE RRR os sah as 2am ae, wena: FABER RESERPINE SHETIN aa 
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/PUSHJ ROUTINE TO RECURSIVELY CALL SUBROUTINES © , ees ; 
~~ ACMECKS FOR PUSHNOWN © OVERFLOW VIA THE ee 
/PUSH ROUTINE BS 
a2 -OUENGTHE QREGIGTERS 0 0 we 


i 
! 


—BUSHIW Oe 
DCA ITEM | AGARRY CCAC) TO SUBROUTINE — 

TAD T PUSHIM ADDRESS OF WHERE TO JUMP 
DCA PORTE /SAVE IT 
+4 BUSH IN  GET- RETURN 
I i el tan ocscnd hl ey a en aS eee nee ere eevee 

PUSH. /PUSH DOWN | 

TAD ITEM _ZRESTORE CCAC) © 


(he: TRIAL ARNOTT REN HOON Sm MEIER RLAA IED Eee BI SS URSA SES) Hh AE ar RASA EEN RESIS NESTOR RUE A AGE PD SAYER he SORA SEO ASN AG TNE RIS REALE ACE A NEE RUSE A OES MBM DARE AN ORETRE CAMA GREASE RESEND EAP ABS BSAA DIN ROSE SECS ARENA ARN HAR HAP RS ASTER NANA DEM ES AGEN SD ASRS SOREN RA SACHEM a PS TEES BP 8 SR ER ESE SRL 1 RSTO MG 


. eadcacbtas rt = penearans sissies . sah ae 7 te ese AS 7 oe AS nl SSRN : hb aR BSR es stb 7 sno ensotaantoa aay 7 torte ett oe SME YEAR RA na eR _ + Se aE Stews ser aaa a a 
; vets . at saat 0 i sac usenet ies oe oscar : _ sumences sion 7 ; 7 peta Brocton 7 ; 
sae | . | — st set esa saa eat 
aera re vei . a omens cess | . SIRO CNSR CEMA 
ses os pebrsoeec hata Yh astaasttacma on sn SRE ; | 
| | er 50a . et RLM SoS - se ss 
anv oe sea ANS SIREN BT cS ca Abe Li YF TS | . nan AR PVR OB HAI | ite ; ; 


/aA CALI. 


Ringer rR a “2 se -F, LeTaNAneh ena tenons ince 
: ae é 


_FCR, 


M45, 


Saal -cime, 


ae ae “IMs T TEE, WITH PACKED SIXSTT WORD IN AC 
WETH @ IN THE ACe WILL GENERATE TWO SPACES ~ 


TAD C215 — 
JMP ALF 


=Q2243 


Cede, oo 
Settee 
; : 


~~ ALENGTH? 35 REGISTERS © - ree 
1200 
LR Sn Sag anon hte ON Seclaal 
DCA ALFTEM /SAVE THE PACKED CHARACTER 
~~ “Tap Me  }©}»>60h 6 PUT hoe TN THE GOUNTER = @ WORD TO 
«DCA ALFTEM+4 /BE OUTPUTTED 
"TAD ALFTEM 8 = 0 /GET FIRST CHARACTER 770000 
RTR AROTATE INTO POSITION | 
ere, Sears RTR- oa _FRUTATE INIY alg 2 ak eee ete air ae eee 
RR gt ea a So _ 
NXCL, AND SL6 /MASK OFF EXTRANEQUS BITS = 7 
NA ATS THE CHARACTER A ZERO? eee 
| IMP ALFLe1 “AYES, GQUTPUT A SPACER 0000 eee 
TAD MGS _ ACHECK FOR LINE FEED #43 _ oe ee 
SNA 
ee JMP FLF | GO TO SPECIAL LINE FEED SECTION 
TAD Me ~/GHECK FOR CARRIAGE RETURN #45 iv 
SNA 
acaaeaRRemEEEEE (ie T°, FE PEET AL CR” SEEN ION 
Tan c} /CALCWULATE CHAR =40— 
oo SPA)” OUST ORESULT TS) AGE. @, ADD 240 © - ~ 
TAD €10¢ A/UTHERWISEs ADD 340 
Sener ——-¥ER Egg - Me 
ALFL, JMS I OOD G0 TO TYPEQUT ROUTINE 
NERD? Tab ALPTEM ~~” ZPICK UP PACKED WORD 
_ TSZ ALFTEM*1 © FALL DONE? 
——————Fae-wyeL NO GO PROCESS IT ae 
CLA AYES, EXtT WITH CLEARED ACS 
a CR ETT fide . ale Bg ee ge 


GET LF CODE tatay 
/GET THE CODE FOR CARRIAGE RETURN 
7G QUTPUT IT art 8 a eee 
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i ata ma ancl aude ei eR Se ee OT EEO ENT Ae eee TIEN PNT en ee en Peet mC eee ng me ETC PO 

| we : ; st ioe - Seat ea 7 - | : 

aa om hea oe whoa . 7 heads 7 ss | : | i - 


Antoni easter sasee PRR a RCtnt ett 
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—7OCTAL OUTPUT ROUTINE | 
/CALLED WITH JMS J UCTI, OCTAL NUMBER IN THE ACCUMULATOR =~ 
“17 REGISTERS eager 


“ALENGTH:- 


Tan ma 


DCA ALPTEM#) 
“TAD ALFTEM 
RAL 


RTL 


OCA ALFTEM 
TAD ALFTEM 


RAL 


— AND SL3 


Tan ceee 


oe] a a) 
T$7 ALFTEM+, 
~SMPONEXT2 

IMP I OCTO 


——“p Bea,” 


“ROUTINE TO GENERATE ELEADER@TRAILER 


ALENGTHS 19 REGISTERS 


LOTR. 


oo 1 5 ae 


"SZ -TeM2 


~~ Ue6o 


A 
pca TEMe 


SZA SMA 


JMS I DON 


JMP LO 


ohh 
alk he 


TAD PEO CO 
CLA 
INP #3 


/SAVE WORD 


Ep T ER -URDUTBUT WORD 
/ROTATE THREE BITS CEPT 


/SAVE RESULTS 


—AOUTPUT TT) 
/UONE 4? 


INO Si th ae a Fe eee es 


NES) ii a 


/# OF CODES 
/WHICH PASS IS 


/PASS 23° 


USE PUNCH 
f ‘is A 5 3 A oO Ro P A $ Ss a 


OCA ALFTEM — Fic aR tks se ne Te er 


7; V7 ae ani 2 (7 1 ea 

/GET LAST BIT FROM LINK 
fe TRIM TO 3°BITS” 
/CONVERT TU ASCII 


COSIRLE RADA SAM ADSORBENT BC BEL HORAN RED RRA NETO TNE 


fii USE. ‘PUNCH 
- PUNCH IT See eee ee ee eer 


433 ASR 
~AQONE? © 
/NO® CONTINUE 


2 ee 


YES? EXT ROUTINE oo 


NOLS Ra TMA SER Ae AS a AR ARCO AE BORA OA CA RNASE AN AT SRL SERMONS BE DOMED 


OE RGA ETAL SECO a REI ePIC 


PRE PAARL IE UREN IGE 


_APAGE | 26 


/LINK 2 1 IF ‘ORIGIN SETTING 


Rg i a ADRES resi EO aA ec aa 


TF EALLED WITH JMS J PUNT, BINARY WORD IN ACCUMULATOR | 
be ENGTHE = 22 REGISTERS 
BER TENE ERT BE PUNE RED 
TAD TEMA INK TS ONE TF ORIGIN | 
 RTR Te APUPT CHARACTER INTO POSITION 0000 0 0 
a RTRO 7 
ani see a ee eee = 
ee AND SLT —.._  ASAVE SEVEN BITS 0 
OCA TEMS /SAVE IT oo 
eT) et <1 eee SS et" | 2 cee ae ee ee 
IMS t BBR 7aAND GO TO PUNCH ROUTINE | ee 
TAD KRSM _/UPDATE CHECKSUM — 
TAD TEMS ee 
A CKSM Ss Pe epee de 
TAD TEM) /PICK UP ORIGINAL CHARACTER AGAIN 
AND SEO AE LOW ORDER SIX BITS 
: RAST FOR CHECK SUR 
ee _ TAD TEMS _/PICK IT UP 
JMS I BBR /PUNCH IT eee 
tees Tap cKSM ss AWPOATE CHECKSUM 
Tan Tems . On 
A KS a ee ee Ne | 
pee Eg NE 


“7eage ee 


— ACHECKS FOR 


/ROUTINE TO PLACE TTEMS ON PUSHDOWN LIST 


PUSHIN, @ 
Rt ee 


I8Z PSHPN] 


TAN PIEND 


Tan PSHPN4 


a a 
IMP I sects ee 


Tan PSHPNL 
PCa I PSHPNY 


187 PSaPNT 


TAD PERRI 


a ee 
eehtnet aime PRRRS 
PERRL, 9+! - 


HLT 
JMP i) 


“PERRS, ERROR2 


aus ccGun BVERRCOR” a ae ee ee ee 
fRENGTHO 27 REGISTERS 


/ INCREMENT PUSHDOWN POINTER | 
CHECK FOR PUSHDOWN OVERFLOW © See 
/HAS POINTER PASSED PIEND? 


sew eae 18 ae EXIT 


INCREMENT PUSHDOWN POINTER aenneiikint ai ackaices 
/GET RETURN ADDRESS FOR ERROR CALL 
7THUS SIMULATING A&A PUSHY ee 


/HOP INTO THE ERROR ROUTINE - 


FERROR RETURN AQODRESS — ape a ae cre nthe 
| AMAT QN ERROR RETURN © . 


aN RECOVERY eae Sere a TERO a ee ee 7 ae eee 
ERROR ADDRESS FOR SIMULATED PUSHJ 


ANA ARG 3 ERAN NE BPE SPS BESMB LE INCRE NESS OA EEE IES STE RES Ba ASR IR TOMI 


/ROUTINE TO ASSEMBLE OCTAL AND DECIMAL 


eat - ar II nagapies cn gaaaec ee Th age FO PG SILER Oho RAR AE ASIDE SS aE 8 IN ARR ch a Nhe RAR a AN EC 


ocWo 


"REGISTERS = 


7NUMBERS ¢ SWITCH TS MADE BY OCTAL AND DEC TMA 
Ad OPS 


7VALIO INFURMATION 
/GET CURRENT WORD | 


. Sic sg a ae eee tS REN te See I 


PLL ORAL 


“ENTER, NOS OO ee 


TAN OCWD 


: “Swit CH FOR _ OCT ALPVECI™M A si lee eel le Ss aah i econ ae Ee A nd asa ald dt onal Oe Gb etc lee Ae eamdecnGe 


atest: "CL sce ge at he R, A L AKAD WASSER RE ST cantata MI SCANLAN AE Tague RELIES AAR AP RGR ARE SONAR A a EMRE AECL a A GAO  RC AARTOE RD EEUIR ER RIO AE a Ei AREAL ORR PRT ARRIBA SSE ERS SARIS abet RYDE BAR ADL Ry APSOE AER nina BB at SEA SCRA, BOR ENE ENN A RESIDE AERC in SHURE 


DCA OCWD 


/STORE OCWD*8 OR OCWDK1e 


TAD Mea 


NCA OCWD 


JMS 1 NCHEKI 
MP NEXNUM © 
JMP TY RONGT 


M60, 60” 


/TURN INTO DIGIT 
Fe a Ghee gee 


/FETCH A SR cere 
/CHECK IT 


PALL VALID NUMBERS ~ ee Sa i Sie nes 
LETTER IN WORD BEGUN WITH NUMBER © 


sass ‘ei i i ; geet iq ‘ seen 4 é a 7 Fi - : ert ame 
La _ERRORN | FF Bet foe bes Ban PRPS et OE ee Sh Se oe 
siting a Ca Ee OAD NABH ht MEME REA LARIL SUME k R INL Ae a EDC ARPS ante ts RAK Me FESO AT tH RAL 


